www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/Ku_type/Re_tie.asp

    <%
id=request.querystring("tieid")
qid=request.querystring("qid")
    If isInt(ID)=False OR Not IsNumeric(ID) Then
    Response.Redirect "Gu_Quan.asp" 
    Response.End()
    End If
    
    set rst=server.createobject("adodb.recordset")
    sqlt="select * from quan_ht where id="&id
    rst.open sqlt,conn,1,1    
    
    set rsk=server.createobject("adodb.recordset")
    sqlk="select * from quan where id="&qid
    rsk.open sqlk,conn,1,1
    
    set rskr=server.createobject("adodb.recordset")
    sqlkr="select * from quan_ren where qid="&qid&" and sqr='"&username&"'"
    rskr.open sqlkr,conn,1,1
    if (rskr.eof and rskr.bof) then
     Response.Write "<script>alert(""你还不是本圈成员，不能回复此话题！"");location.href=""Gu_Quan.asp"";</script>"   
    end if
%>

<div align="center">
	<table border="0" width="740" height="549" cellpadding="0" cellspacing="0">
		<tr>
			<td height="33" width="740" background="Ku_img/user_001.jpg">

			&nbsp;&nbsp; <b>回复新话题</b></td>
		</tr>
		<form method="POST" action="deal_user.asp?Action=retie&qid=<%=qid%>&tid=<%=id%>">
		<tr>
			<td height="502" width="742" background="Ku_img/user_002.jpg" valign="top">

			<div align="center">
				<table border="0" width="733" id="table1" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2" height="616">
					<tr>
						<td bgcolor="#FFFFFF" width="160" height="41" align="right">
						<b>主 题</b>：</td>
						<td bgcolor="#FFFFFF" height="41" width="570">&nbsp;<input type="text" name="title" size="52" maxlength="20" value="回复：<%=rst("title")%>" > 
						*(可以修改)</td>
					</tr>
					<tr>
						<td bgcolor="#FFFFFF" width="160" align="right" height="48">
						<b>所属圈子</b>：</td>
						<td bgcolor="#FFFFFF" height="48" width="570">&nbsp;<INPUT type="hidden" name="qid" value="<%=id%>" ><input type="text" name="leibie" size="20" value="<%=rsk("name")%>" readonly> 
						*(不可修改)</td>
					</tr>
					<tr>
						<td bgcolor="#FFFFFF" width="160" align="right" height="43">
						<b>回复会员</b>：</td>
						<td bgcolor="#FFFFFF" height="43" width="570" align=center> 
						<p align="left">&nbsp;<input type="text" name="huifuren" size="20" value="<%=username%>" readonly> 
						(不可修改)</td>
					</tr>
					<tr>
						<td bgcolor="#FFFFFF" width="160" align="right" height="43">
						<b>楼主</b>：</td>
						<td bgcolor="#FFFFFF" height="43" width="570" align=center> 
						<p align="left">&nbsp;<input type="text" name="username" size="20" value="<%=rst("fbr")%>" readonly> 
						(不可修改)</td>
					</tr>
					<tr>
						<td bgcolor="#FFFFFF" width="160" align="right" height="372"><b>
						回复内容</b>：</td>
						<td bgcolor="#FFFFFF" height="372" width="570" align=center> <textarea rows="2" id="content" name="content" cols="20"  style="display:none"></textarea>
						<IFRAME ID="eWebEditor1" src="Ku_Eweb/ewebeditor.asp?id=content&style=s_red" frameborder="0" scrolling="no" width="550" height="350"></IFRAME></td>
					</tr>
					<tr>
						<td bgcolor="#FFFFFF" align="right" colspan="2">
						<p align="center">
						<input type="submit" value="编 辑" name="B1">
						<input type="reset" value="重 写" name="B2"></td>
					</tr></form>
					</table>
			</div><br><br><br>

			</td>
		</tr>
		<tr>
			<td height="14" width="742">
			<img border="0" src="Ku_img/user_003.jpg" width="740" height="5"></td>
		</tr>
	</table>
</div>